106 


bh 
bh 
To) 


eladilled 
“fu 


Ge MOOR & hee Hf yy 
TOKE 


INK 


3 


eee 
Souooneng 


P= 


A 


$0 


J 


fertan ty 


ane 


"235 
248 


° uh mw 


RND 


nine do eeu 
for 





REM Greyhound 


REM © Gourtay,Hartnetl 1982 
RANDOMIZE 

GO SUB 200 

FOR x= TT 22 

PRINT INK 4; TAB se; "g" 

NEXT x 

noe AT @.6; 


pin a9) 

FOR x=1 TO 93 

PRINT AT 2#x.at(x33" 
LET a(x} =3 (xX) +RNDz2 
PRINT AT 2#x,a2 xX}; 


BEEP .601,.3#x 

IF a {x} >38 THEN GO TO 135 
NENT x 

GO To so. 

FOR g=1 TO 508 STEP 
PRINT AT 15,6; 
the winner!* 
BEEP .@2,9 

IF w=ex THEN PRINT AT 20,23; 
#7; “ANG you are the winhnhe 


FLAS H RRND 
NEXT 9g 
FLASH @ 


RUN 

BORDER @ 
PRINT AT 3.1; 
the greyhound 
PRINT . TT S,6; INK i;“There 
INPUT ¢ 


INK. 2i“Place your b 
a2 wan 
TF wi OR w>9° THEN GO TO 22 


BORDER 2 


cLs RETURN 


“You bet an nu 


INK 


X/Bs 


2 


= 


INK RRND? x7 


INK 2; “Wetcom 
trac 


Sicilia 


ZX 


Spectrum 


A SPECIAL PROGRAM SAMPLER FROM THE 
NATIONAL ZX USERS’ GROUP 





320 


fexeT«) 


SCORE I5 5152 


x 


REM SGuARoH 

REM AFTER PROGRAM BY 
JEREMY RUSTON 

GO SUB 6354 

REM MOVE COL oat TH 2 ANC M 


LET ene aae S5e 
LET SETUP=300 

LET HOVEBAT ¢ 466 
BRIGHT 1: BORDER 4 
PAPER 7: CLS 


REM sEEEEEEEE 
LET SCORE= SCORE + INCREMENT 
LET AS=INKEY 
IF AG=a"“Z" GR AF="M" THEN GO 
MOVEBA ; 
GG SUB MOVEBALL 
PRINT AT 19,5411; INK 2;56% 
GO TO &@ 
REM SL EL ERE LEE 
ree ola UP #2 
= 
PRINT AT 109,18; INK 2; “HR 


FOR 1=0 TO 10 
PRINT (OT e0+20,10; INK 2; "mr 


LET B=10 ; 
PRINT AT 19,1145; 8% 
LET INCREMENT =2094 NT {RIND # 


RETURN 

REM FEES ELEKEF EEE EESKE 

REM ¥** MQVE BAT x 

IF AS="MN AND B=16 THEN RET 


as IF AS="Z" AND B=@ THEN RETU 


S10 IF AS="M" THEN LET B=6+1 
S20 IF AS="Z" THEN LET B=5- 

S30 RETURN 

S540 REM HLELHRSEEESE LEEKS 

SS@ REM #£## MOVE ee HEE 

SV2@ PRINT AT 1224Y,12+2x; bhi 

550 IF nee te Or Cx ce THEN LET 


& 
590 iF MN+Y>8 OR M+Y<@ THEN LET 
M=-M: BEEP .01.29 

6@@ LET X=X+tL 

610 LET Y=Y+M 

620 PRINT AT 113+4+Y,114X; INK 4;D 


: 
622 IF Y<>8& THEN RETURN 
625 PRINT AT 6,7; INK 6; PAPER 


2;" Seco e Is "“; SCORE; "“ 

630 IF Y=8 AND ABS (B-X) ¢#2 THE 
NO RETURN 

640 PRINT AT 2,2; INK 7; PAPER 
a," END OF GAME bd 


6S@ FOR G=1 TO 5@ 

G6e@ BEEP .@1,6G: BEEP 201. 68-G 

67Q NEXT G | 

6890 RUN 

690 REM LETTER IN QUOTE MARKS 
IN LINE 706 IS AN_M, 
ENTERED AFTER GETTING 
INTO GRAPHICS MODE 

7Q0@ LET DS§="@" 

710 FOR H=0 TO 7? 

15 BEEP ome nar 


READ 
F3@ POKE yen “M“¢+HJN 


75Q@ REM NEXT LETTER IS 
a oa 3 6 

769 LET Ba="K" 

7708 FOR WH=@ TO 7 

77S BEEP .61,50+7 (H41) 


READ N 
7930 POKE USR “B"+H,N 


690 RETURN 

18@@Q DATA BIN BA@GOAOGH,BIN OO611 
G@00,BIN @6111210960,581IN @61211119, =] 
IN @@1111118,BIN @61111118,BIN @ 
@131100,5IN $9901603 

2@1@ DATA BIN 2112112111,BIN 0@111 
198,.BIN 90011609 ,.BIN @6121199,.51 
N Biilisa, SIN @iiiliszeE, SIN Oriit 
1186.5IN LiL224132 


‘ow 
ee hes 


nm 


REM s4mhain Fa 
LET q=INT (RND 
FOR r=1 To S 
REEP .@2,iaar 
NT" t*S TRB a; INK 


PRI 
INK @; TAB 38; "2" 
NEXT ¢ 


POKE 2asnee,-1 

LET space =4"R 

FOR p=1 TO espace 
PRINT “ €'; TRE aes") 


19 men cao eee 
2a 7: CLs 
Bo nee 

40 BORDER ? 

SQ FOR a=1 Ta 18a 

6@ FOR ji=1 TO 7 STEP 


L 


72 PLOT a#3xCas {3} +1L1IG.aeixST 


Cas +Laa 
S@ NEXT J 
30 INK ava 


186@ NEXT a 


@® REM Fore 
5 REM (ver 
a PAPER 7: C 


ei 


SQ FOR a=2 TQ 19. 

Be FOR yal TO, 7 SE se 
2) 24S T} 

7@ PLOT a4tJ aa) eS IN 


4 
}+110,a#(jJ +245IN 
8 


BQ NEXT J 
Qe INK a/3.5 
41€@ NEXT a 


Q 
ee Aa"," | Var cer ee oo 








40 REM Star bouncer 

15 REM © Hartnett, ag8sea 

2@Q BOREER @ 

SQ@ LET a=1: LET b=1: LET c=RND 
#20: LET -d=RND+29 
Peas LIE AT c,d; “SF AT cyd; IN 
} ve 

SO IF .c+b3>21 OR c+#bi-2 THEN LE 

b=-b: BEEP 3.2.-RNDz1i5 

6Q@ IF d+a>31i AR dsa<ca OR RND>, 
ae THEN LET 2=-a: BEEP @.1.,.RND#2 


FO LET c=c+b: LET d=dta 
608 GO TO 40 


1@ REM #BLOB CATCHER 

2a LET S=@ 

3B FOR J=2 TO 9 

4@ PRINT AT 1@,240; INK Ura; ul 

S@ NEXT 

68 FOR G=38@ TO 1 cis ag -i 

7@ PRINT AT_5,3; NK 6; PAPER 
lene a; " FIME>* Tee" ' SCORE > 

8@ LET A=INT_(RND#2) +4 

9@ PRINT AT 9,22A; FLASH 1; IN 


K 2;° 
2@@ FOR H=1 TO 24 
13@ BEEP .@1,58/H 
12a LET AgS= INKEY S$ 
238 IF RASsso"" THEN GQ TO 3278 
1348 


iS@ LET G=G-1 
17@ LET S=S+tAsS=STRS A) eA 
INT AT Qa #A; 


18@ PR a; 

198 NEXT G 

2O@ PRI T_S,3; INK 6; PAPER: 
2; FLASH 41; “ TIME"; @; SCORE > 
"4 PER &; INK 2;8;" 
b.@ RINT AT 19-4: FLASH 4; INK 
2; ER 6; BRIGHT 1; "THAT*’S AL 


; AP 
Le FOLKS!!" 


18 REM CODE-SBREAKER 

2@ DIM Ct4} 

3G DIM &(4} 

49 PRINT °’’ PAPER 3S; INK 65" 

Tam thinking of 2 4-digit 

58 PRINT POPER 2: INK 6&; “AUR be 
fe which “wou nave 218 goes" : 
°86@ PRINT Pacer 2; INK 6; “to di 
caver. Att igits are =. : 
7O@ PRINT PAPER 2: INK 6: “diffe 
rent. Press any Key SP 

8@ PRINT PAPER 2; INK 6;"“ 

to begin... i 

. 890 PAUSE ded 

i180 CLS 

410 LET COLI SINT ¢(RND*#S33 +1 

120 FOR 2@=2 TO 4@ 

4360 LET CtUZISINT (RNO#S3+1: SEE 
P .5,C0(Z)3 

14 FOR J=s1i TO Z-1 
=C(27} THEN GO TO i136 


nS 


f 
rf) 
loTo] 
H 
| 
0 
cq 
“on? 


180 FOR G=1 TQ 186: BEEP 1,26 
20@Q@ PRINT PAPER 1; INK 7; TAB &; 
“Enter guess “3G3° ss 


240 LET G(Z) sA- 1O£INT {A183 
250 LET sINT (A410) 


270 LET B=@ 

260 LET U=6 

2390 FOR f=1 TO 4 

S@@ IF C(Z3 ¢>GtZ) THEN GO TO SS 
319 LET 6=6+1: BEEP .62,16«68 
S2@ LET G(Z3 <8 

3390 NEXT = 

34@ FOR Z=1 TO 4 

350 IF Giz) =6 Ten GO TO 400 


36@ FOR J=1 TO 
S70 IF CtZ3 ¢>GtJ)} THEN GO TO S99 


S8Q LET WeWV+1: BEEP .O2. 74 
420 PRINT INK 2;A1;" SCORED “; 


INK @©;6,;° BLACK"; 
4390 ar i nee oe “S"5 


acai IN 2a;u;* HITE 
4590 IF coi THEN PRINT “S85 

46@ PRI 

479 IF. B= 4 THEN PRINT “ou gues 

Sed in “,;G;," auesses! 

450 IF Bi>4 THEN NEXT G 

49@ PRINT “The code was “; INK 


2;0(4);C0(33;C0(33;C0¢1) 
All contents of this publication copyright (c) Hartnell 
1982. No reproduction in any form or for any purpose without 
prior written permission from the copyright holder. This 
program sampler published by INTERFACE, 44 - 46 Earls Court 
Road, London, W8 6EJ 6 


THE BOOK 


YOU'VE BEEN 
WAITING FOR 


PROGRAMMING YOUR ZX SPECTRUM 
by Tim Hartnell | 
and Dilwyn Jones 


Examines and explains every function on the ZX Spectrum. 


More than 100 programs and routines, covering every 

aspect of programming the ZX Spectrum...from first 

principles right through to things like defining your 

own graphics, MERGE, READ/DATA, SCREENS and DRAW. 
SHELSACNPASNSNCE CRS DEM OTOROTSNSMG RIN SHOU SET HOS PLOTONOSCE CESUCHSHSNORD 

Interface, Dept. SS, 

hk - 46 Earls Court Road, 

LONDON, W8 6EJ 


Please send me: 

( ) A copy of PROGRAMMING YOUR ZX SPECTRUM. I enclose 
£6.95 

( ) A sample copy of INTERFACE, the monthly magazine 
published by the National ZX Users’ Club, with 
ZX80, ZX81 and ZX Spectrum programs in each issue 
| enclose £1.00. 
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Address 





REM Spectral Hangp 
REM © K MNahagany,. : 
FOR g=2 TQ RNOse2e5+2 
READ oF 

a 

N Bes dtm 


en 
cole agitg) 
btg2 


nens3 


INK RND#h; “Enter 
“3J 
5 st 
83 
F THEN LET 


Da 
2: 


F 
Go 
your 9LUEe 
aa INU 
£ 218 


¢ tg) =o 


BOE 


12 
INK 2; 


e 


mn Pwhy 


“Sarry, Tie 
up | 

GQ TO 238 

REM £2#*% Win ## 

PRINT *° INK 4; TAB 4; “Well o 


A Aabiee rane 4; “You got the 
ee QUESS Bes" 
PRINT” TK as “The werd we 


RINT INK RND#5; “Press 3 
tea Sane" 


fata hynny hynny ny 
mH 
“996 BUD 


© 
“4 


. 


eye ta 


m7 hs 


BOG) 


- 
¢ 


. 
° 


i 


Q 


ee 


pe) 
% 


S766 


| a | 


2% 
Perey 2 Lali Ge ty 


O0am- JNBONS 


Brg 
yr ¢ 
yo 
8 
2% 


“wizard', 
Aton’, 
h=e@ 
R e=i Ta 


$28 iF. "bel = =dte} THEN PRINT INK 


a 


x 1ohC CM 


n 


mind 
1 th ere 
“nNOre8 ACV 


t 


a 
aI nay 


OME Gr} Da 
y ba 


a 
y 
i 
i 


fe 


IND 4S 


4238 IF Bie? s 
K paND #5, DHRS 

EEP .25,h 
ris 


NEXT “e 


SD (E) THEN BR 
(BIE 5 | honey 


445 BORGER RND#6 


45e@ IF 
468 PRINT 
ave gues 

QB," Lert 


h=n THEN GQ Ta 
INK @Q; 


a ae 
PRPER ;“Y¥anu 
ThkK Ri a5; hs ; IN 


¢ 


THEN PRINT PAPER 5; 


